home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 May / Ahoy_Magazine_86-05_1986_Double_L.d64 / ski folly (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  234 lines
  1. 10 print"[147]":poke53281,1:poke53280,1:poke52,60:poke56,60
  2. 20 data 120,169,73,141,20,3,169,3,141
  3. 30 data 21,3,88,96,169,208,133,252,169
  4. 40 data 3,133,251,162,1,160,0,177,251
  5. 50 data 105,1,144,2,169,251,145,251,224
  6. 60 data 7,240,8,232,230,251,230,251,24
  7. 70 data 144,234,173,1,220,41,15,201
  8. 80 data 11,240,7,201,7,240,16,76,49,234,173,0,208,201,32,240,246,206,0,208
  9. 90 data 24,144,240,173,0,208,201,255,240,233,238,0,208,24,144,227,0,0,0,0,0
  10. 100 foru=828to921:readq:pokeu,q:next
  11. 110 sys 828:poke53248+21,0:vic=53248
  12. 120 gosub600
  13. 130 gosub1260
  14. 140 poke856,2
  15. 150 x5=rnd(-sqr(rnd(1)*ti))
  16. 160 s=53248:print"[147][144]
  17. 170 [151]53281,3
  18. 180 [129]u[178]1024[164]1063:[151]u,160:[151]u[170]960,160
  19. 190 [151]54272[170]u,6:[151]54272[170]u[170]960,6:[130]
  20. 200 [129]u[178]1024[164]1984 [169]40:[151]u,160:[151]u[170]33,160:[151]u[170]39,160
  21. 210 [151]u[170]54272,14:[151]54272[170]u[170]33,14:[151]54272[170]u[170]39,14:[130]
  22. 220 [151]53281,1
  23. 230 [129]u[178]0[164]14[169]2:[151]u[170]vic,(u[172]18):[130]
  24. 240 [151]2040,203
  25. 250 [151]vic[170]28,34:[151]vic[170]37,5:[151]vic[170]38,5
  26. 260 [129]u[178]40[164]47:[151]vic[170]u,5:[130]
  27. 270 [151]vic[170]21,255
  28. 280 [129]i[178]1[164]7:[151]2040[170]i,202:[130]
  29. 290 di[178]254
  30. 300 x[178]150:di[178]0
  31. 310 [151]vic,x:ti$[178]"000000":a$(2)[178]"fast      "
  32. 320 a$(3)[178]"real fast ":a$(4)[178]"very fast! "
  33. 330 a1[178][194](vic[170]30):[129]i[178]0[164]24:[151]54272[170]i,0:[130]
  34. 340 [151]54296,15:[151]54273,0:[151]54277,85:[151]54278,85:[151]54276,129
  35. 350 a$(1)[178]"whoa!!!!!!":g[178]2:a$(5)[178]"too fast !
  36. 360 i=0:a=int(rnd(1)*7)+1:ifpeek(vic+(a*2)+1)>240theni=1
  37. 370 a1=peek(vic+30)and1:ifa1then1790
  38. 380 ifbr=0thenpoke856,g
  39. 390 ifbr=0thenif(peek(56321)and16)=0thenpoke856,1:br=1:gosub2280
  40. 400 ifbrthendi=di-1
  41. 410 ifbrthenif(peek(56321)and16)=16thenpoke856,g:br=0:poke54276,129:gosub2310
  42. 420 di=di+1:print"end of slope:    [157][157][157][157]"400-di"[157] ft.";:ifdi=>400then1520
  43. 430 ifti$="000011"theng=3
  44. 440 ifti$="000049"theng=4
  45. 450 printtab(20);"speed:";a$(peek(856));
  46. 460 print""tab(34)"time:
  47. 470 [153]""[163]33);""ti$"
  48. 480 poke54272,g*30+20
  49. 490 ifti$="000009"thenprint""tab(8);"slope steepening!
  50. 500 [139]ti$[178]"000047"[167][153]""[163]8);"slope steepening!
  51. 510 ifti$="000012"thenprint""tab(8);"                 "
  52. 520 ifti$="000050"thenprint""tab(8);"                 "
  53. 530 ifi=0thengoto360
  54. 540 poke2040+a,202
  55. 550 pokevic+(a*2)+1,0
  56. 560 a1=peek(vic+30)and1:ifa1then1790
  57. 570 poke54272,peek(856)*12
  58. 580 goto360
  59. 590 rem  ----  opening screen  ----
  60. 600 print"[147]
  61. 610 [131] 0,0,0,0,0,0,0,0
  62. 620 [131] 0,63,198,3,127,230,3,192
  63. 630 [131] 6,24,192,6,48,192,6,99
  64. 640 [131] 255,230,195,127,247,131,0,55
  65. 650 [131] 3,0,55,3,0,55,131,0
  66. 660 [131] 54,195,0,54,99,127,230,51
  67. 670 [131] 255,198,27,0,0,0,0,0
  68. 680 [131] 0,0,0,0,0,0,0,0
  69. 690 [131] 0,0,0,0,0,0,0,0
  70. 700 [131] 0,255,198,192,255,198,192,192
  71. 710 [131] 6,192,192,6,192,192,6,192
  72. 720 [131] 254,6,192,254,6,192,192,198
  73. 730 [131] 211,193,230,211,195,54,211,194
  74. 740 [131] 22,211,195,54,211,193,230,211
  75. 750 [131] 192,198,207,0,0,3,0,0
  76. 760 [131] 3,255,255,254,127,255,252,0
  77. 770 i[178]200:[141]780:[137]790
  78. 780 [129]u[178]i[172]64[164]i[172]64[170]63:[135]q:[151]u,q:[130]:[142]
  79. 790 i[178]201:[141]780
  80. 800 [151]2040,200:[151]2041,200:[151]2042,201:vic[178]53248
  81. 810 [151]vic[170]21,6:[151]vic[170]29,7:[151]vic[170]23,7
  82. 820 [151]vic[170]2,136:[151]vic[170]4,188
  83. 830 [151]vic[170]41,14:[151]vic[170]40,14
  84. 840 [151]vic[170]3,0:[151]vic[170]5,0
  85. 850 s[178]54272:[151]s[170]24,15:[151]s[170]5,85:[151]s[170]6,85:[151]s[170]12,85:[151]s[170]13,86
  86. 860 [151]s[170]4,33:[151]s[170]11,17
  87. 870 [139][194](vic[170]3)[178][177]127[167][151]vic[170]1,[194](vic[170]3):[137]900
  88. 880 [151]s[170]1,128[171][194](vic[170]3):[151]s[170]8,128[171][194](vic[170]5)
  89. 890 [137]870
  90. 900 [151]vic,[194](vic[170]2):[151]vic[170]21,5:[151]vic[170]1,127:[151]vic[170]39,6
  91. 910 [139][194](vic[170]5)[177][178]127[167]940
  92. 920 [151]s[170]8,128[171][194](vic[170]5)
  93. 930 [137]910
  94. 940 [151]856,0:[151]vic[170]41,6:[151]vic[170]5,127
  95. 950 [151]s[170]24,0
  96. 960 [129]u[178]0[164]5:[129]e[178]0[164]14:[151]vic[170]39,e:[151]vic[170]41,e:[130]e,u:[141]1080
  97. 970 [151]53254,171:[151]53255,200:[151]53257,100:[151]53256,171:[151]2044,204
  98. 980 [151]2043,203:[151]vic[170]21,13[170]16
  99. 990 [151]vic[170]42,12:[151]vic[170]43,10
  100. 1000 [151]198,0:[129]dl[178]1[164]400:[130]
  101. 1010 sb[178]1024:cb[178]sb[170]54272:[129]i[178]10[164]29:[151]sb[170]i[170]160,160:[151]cb[170]i[170]160,6
  102. 1020 [151]sb[170]i[170]880,160:[151]cb[170]i[170]880,6:[130]:[129]i[178]4[164]22:w[178]i[172]40:[151]sb[170]w[170]10,160
  103. 1030 [151]cb[170]w[170]10,6:[151]sb[170]w[170]29,160:[151]cb[170]w[170]29,6:[130]
  104. 1040 [153]"stoppress firecont
  105. 1050 geta$:ifa$=""then1050
  106. 1060 pokevic+21,0:foru=0to14:pokeu+vic,0:next
  107. 1070 pokevic+23,0:pokevic+29,0:print"[147]":poke53280,0:return
  108. 1080 fori=202*64to204*64+62
  109. 1090 readq:pokei,q:next:return
  110. 1100 data 0,16,0,0,40,0,0,84,0
  111. 1110 data 0,170,0,1,85,0,2,170,128
  112. 1120 data 5,85,64,2,170,128,5,85,64
  113. 1130 data 10,170,160,21,85,80,10,170,160
  114. 1140 data 21,85,80,42,170,168,0,56,0
  115. 1150 data 0,56,0,0,56,0,5,85,64
  116. 1160 data 42,128,168,0,0,0,0,0,0
  117. 1170 data 0,0,62,0,0,127,0,0,127
  118. 1180 data 0,2,62,0,4,28,0,24
  119. 1190 data 127,128,24,255,192,45,190,96
  120. 1200 data 71,62,48,130,62,80,0,62
  121. 1210 data 56,0,190,16,4,118,8,6
  122. 1220 data 54,4,3,54,2,1,182,0
  123. 1230 data 0,230,0,0,99,0,0,49
  124. 1240 data 128,0,24,192,0,0,0,0
  125. 1250 return
  126. 1260 rem  ----  instructions  ----
  127. 1270 print"[154][147]":a1=peek(56321)and16:ifa1=0then1260
  128. 1280 poke856,0
  129. 1290 pokevic+23,0:pokev+29,0
  130. 1300 poke53281,6:fori=12to27:poke1064+i,160:poke1064+i+160,160:next
  131. 1310 fori=1064to1064+160step40:pokei+12,160:pokei+27,160:next
  132. 1320 print""tab(14);"[155][164][164][164][164][164][164][164][164][164][164][164][164]":printtab(14);"instructions"
  133. 1330 print"[154]  [158]you're on a ski vacation at the mt.
  134. 1340 [153]"  kendall ski lodge.  you find that you
  135. 1350 print"  have accidentally gotten on "chr$(34)"dead
  136. 1360 [153]"  man's slope"[199](34)"!!!!  you must use
  137. 1370 print"  your limited skiing abilities to
  138. 1380 [153]"  save your life !!!!!!!!!!!!!!!!!!!
  139. 1390 print"  this is you:[146]"
  140. 1400 printtab(22);"[145][164][164][205]
  141. 1410 [153][163]22);"tab(tab((NULL)":vic[178]53248
  142. 1420 [151]vic[170]5,104:[151]vic[170]4,170:[151]2042,202:[151]vic[170]41,0
  143. 1430 [151]vic[170]21,5:[151]2040,203
  144. 1440 [151]vic,235:[151]vic[170]1,200
  145. 1450 [153]"listpress -firewaitlist- to start
  146. 1460 sb=1024:cb=54272+sb:fori=0to39:pokesb+i,160:pokecb+i,7
  147. 1470 pokesb+i+960,160:pokecb+i+960,7:next
  148. 1480 fori=0to960step40
  149. 1490 pokesb+i,160:pokecb+i,7:pokesb+i+39,160:pokecb+i+39,7:next
  150. 1500 a=peek(56321)and16:ifathen1500
  151. 1510 print"[147]":pokevic+21,0:return
  152. 1520 rem  ----  you made it  ----
  153. 1530 pokevic+11,0:poke2045,204
  154. 1540 t$=ti$
  155. 1550 pokevic+21,252
  156. 1560 ifpeek(vic+5)=<50then1560
  157. 1570 sp=53251:foru=1to7
  158. 1580 ifu=5then1600
  159. 1590 pokesp,0
  160. 1600 sp=sp+2:next
  161. 1610 ifpeek(vic+11)=<150then1610
  162. 1620 poke856,2
  163. 1630 ifpeek(vic+11)=<179then1630
  164. 1640 poke856,0
  165. 1650 print""tab(9);"you made it !!!
  166. 1660 h1(1)[178]25:l1(1)[178]30:h2(1)[178]18:l2(1)[178]209
  167. 1670 h1(2)[178]33:l1(2)[178]135:h2(2)[178]25:l2(2)[178]30
  168. 1680 h1(3)[178]42:l1(3)[178]62:h2(3)[178]31:l2(3)[178]165
  169. 1690 h1(4)[178]50:l1(4)[178]60:h2(4)[178]37:l2(4)[178]162
  170. 1700 h1(5)[178]42:l1(5)[178]62:h2(5)[178]31:l2(5)[178]165
  171. 1710 h1(6)[178]50:l1(6)[178]60:h2(6)[178]37:l2(6)[178]162
  172. 1720 s[178]54272:[151]s[170]5,85:[151]s[170]6,85:[151]s[170]12,85:[151]s[170]13,85
  173. 1730 [151]s[170]24,15:[151]s[170]4,33:[151]s[170]11,17
  174. 1740 [129]x[178]1[164]6:[151]s,l1(x):[151]s[170]1,h1(x):[151]s[170]7,l2(x):[151]s[170]8,h2(x)
  175. 1750 [139]h1(x)[178]50[167][129]t[178]1[164]200:[130]
  176. 1760 [129]t[178]1[164]200:[130]:[130]x
  177. 1770 [129]d[178]0[164]24:[151]s[170]d,0:[130]
  178. 1780 [137]1920
  179. 1790 [143]  ----  you crashed!  ----
  180. 1800 [151]856,0:s[178]54272:[151]s,240:[151]s[170]1,33:[151]s[170]5,8:[151]s[170]22,104:[151]s[170]23,1
  181. 1810 [151]s[170]24,79
  182. 1820 [151]s[170]4,129:[129]dl[178]1[164]100:[130]:[151]s[170]4,128
  183. 1830 [151]856,1
  184. 1840 [129]i[178]200[164]251:[151]53249,i:[130]
  185. 1850 [151]856,1:t$[178]ti$:[151]s[170]4,0
  186. 1860 [129]y[178]32[164]50:[151]2040,y:[130]
  187. 1870 [151]vic[170]21,254
  188. 1880 s[178]54272:[151]s[170]24,15:[151]s[170]5,85:[151]s[170]1,1:[151]s[170]4,17
  189. 1890 [129]dl[178]1[164]200:[130]:[151]s[170]4,16:[129]dl[178]1[164]200:[130]:[151]s[170]4,0
  190. 1900 [153]""[163]8);"    you crashed! "
  191. 1910 [151]54276,0
  192. 1920 [153]""[163]13)"game over!":[153]""[163]13)"press firewait
  193. 1930 pokes+4,0:pokes+4,33:pokes+5,85:pokes+24,15
  194. 1940 a1=peek(56321)and16:poke53280,rnd(1)*16
  195. 1950 sc=abs(int(((300-val(t$))*di)/2)):ifdi=400thensc=sc+500
  196. 1960 a=int(rnd(1)*7)+1:ifpeek(vic+(a*2)+1)=251thenpokevic+(a*2)+1,0
  197. 1970 ifa1then1940
  198. 1980 poke56321,0:poke53280,0
  199. 1990 pokes+24,0
  200. 2000 poke53281,14
  201. 2010 pokevic+21,0
  202. 2020 a1=peek(56321)and16:ifa1=0then2020
  203. 2030 print"[147]           your score:"sc
  204. 2040 ifsc=>hsthenhs=sc
  205. 2050 print"           best score:"hs
  206. 2060 print"       would you like to
  207. 2070 [153]"           play again?
  208. 2080 print"              y / n
  209. 2090 [153]"open   syswait^open   sys open wait
  210. 2100 a4=1761:a5=1765
  211. 2110 a=a4
  212. 2120 a1=peek(56321)and15
  213. 2130 ifa1=11thena=a4
  214. 2140 ifa1=7thena=a5
  215. 2150 pokea4,32:pokea5,32:pokea,30
  216. 2160 a1=peek(56321)and16:ifa1then2120
  217. 2170 ifa=a4then130
  218. 2180 poke198,0:fori=1to30:print"";:next
  219. 2190 end
  220. 2200 data 0,0,56,0,0,248,0,1
  221. 2210 data 248,0,3,240,0,7,224,0
  222. 2220 data 15,224,0,31,192,0,63,192
  223. 2230 data 0,63,128,0,127,0,0,127
  224. 2240 data 0,0,254,0,0,252,0,0
  225. 2250 data 124,0,0,112,0,0,0,0
  226. 2260 data 1,192,0,3,224,0,3,224
  227. 2270 data 0,3,224,0,1,192,0,0
  228. 2280 poke54276,0:poke54277,144:poke54276,33:poke54276,32:poke54278,144
  229. 2290 poke54273,20
  230. 2300 return
  231. 2310 poke54276,0:poke54276,129
  232. 2320 poke54273,0:poke54277,85
  233. 2330 return
  234.